function print_table_model_fit(data, model, bartik, filename)    

    delete(filename)
    diary(filename)
    diary on  

    fprintf('\\begin{tabular}{lccccc}'); fprintf('\n');
    fprintf('\\hline\\hline\\\\[-0.8em]'); fprintf('\n');  
    fprintf('& \\multicolumn{5}{c}{Quintiles of average wage per worker} \\\\[0.2em] \\cline{2-6}\\\\[-0.8em]'); fprintf('\n');   
    fprintf('& \\hspace{0.6cm}1\\hspace{0.6cm} & \\hspace{0.6cm}2\\hspace{0.6cm} & \\hspace{0.6cm}3\\hspace{0.6cm} & \\hspace{0.6cm}4\\hspace{0.6cm} & 5 (largest) \\\\[0.2em] \\hline\\\\[-0.8em]'); fprintf('\n');    
    
    fprintf('Mean number of suppliers & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.1f', data.mean_indegree_d*data.N); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model'); fprintf(' &%.1f', model.mean_indegree_d*data.N ); fprintf('\\\\'); fprintf('\n');
    
    fprintf('Mean number of customers & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.1f', data.mean_outdegree_d*data.N); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model'); fprintf(' &%.1f', model.mean_outdegree_d*data.N ); fprintf('\\\\'); fprintf('\n');   
    
    fprintf('Standard deviation of log sales & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.2f', data.sd_lnsales_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model'); fprintf(' &%.2f', sqrt(model.var_lnsales_d)); fprintf('\\\\'); fprintf('\n');     
    
    fprintf('Share of total network sales & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.2f', data.network_sales_share_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model'); fprintf(' &%.2f', model.network_sales_share_d); fprintf('\\\\'); fprintf('\n'); 
    
    fprintf('Fraction of exporters & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.2f', data.exporter_share_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model'); fprintf(' &%.2f', model.exporter_share_d); fprintf('\\\\'); fprintf('\n');    
    
    fprintf('Export intensity of exporters & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.2f', data.export_intensity_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model'); fprintf(' &%.2f', model.export_intensity_d); fprintf('\\\\'); fprintf('\n');  
  
    fprintf('Fraction of importers & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.2f', data.importer_share_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model'); fprintf(' &%.2f', model.importer_share_d); fprintf('\\\\'); fprintf('\n');    
    
    fprintf('Import intensity of importers & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.2f', data.import_intensity_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model'); fprintf(' &%.2f', model.import_intensity_d); fprintf('\\\\'); fprintf('\n');  
    
    fprintf('Unweighted average log wage of suppliers  & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data &-'); fprintf(' &%.2f', data.avg_unwgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model &-'); fprintf(' &%.2f', model.avg_unwgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');   
    
    fprintf('Weighted average log wage of suppliers & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data &-'); fprintf(' &%.2f', data.avg_wgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model &-'); fprintf(' &%.2f', model.avg_wgt_lnwageS_d4); fprintf('\\\\[0.2em]'); fprintf('\n');    
    fprintf('\\hline\\\\[-0.8em]'); fprintf('\n');
    
    fprintf('Shift-share IV coefficient ($5\\%%$ export shock) & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data & \\multicolumn{2}{c}{%.2f\\%%}', (data.bartik_wage_response-1)*100); fprintf('& & & \\\\'); fprintf('\n');
    fprintf('\\quad Model & \\multicolumn{2}{c}{%.2f\\%%}', (bartik.avg_wage_response-1)*100); fprintf('& & & \\\\[0.2em]'); fprintf('\n');     
    fprintf('\\hline\\hline'); fprintf('\n');
    fprintf('\\end{tabular}'); fprintf('\n');   

    diary off    


end